(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    337431,      12081]
NotebookOptionsPosition[    334800,      12002]
NotebookOutlinePosition[    335461,      12024]
CellTagsIndexPosition[    335418,      12021]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Uxph2", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxmh2", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxm2h", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"2", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxp2h", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"2", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxm3h", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"3", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxp3h", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"3", "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxm3h2", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["3", "2"], "hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "2"], "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "2"], "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "2"], "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "2"], "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "2"], "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Uxp3h2", "=", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "+", 
     RowBox[{
      FractionBox["3", "2"], "hx", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "3"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "120"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "5"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "720"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "2"], "hx"}], ")"}], "6"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["3", "2"], "hx"}], ")"}], "7"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axmh", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axph", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axp2h", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"2", "hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axm2h", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"2", "hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "2"], 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "5"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "hx"}], ")"}], "6"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "hx"}], ")"}], "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.627086601422093*^9, 3.627086690025634*^9}, {
   3.627087050329996*^9, 3.6270871279808702`*^9}, {3.62708799134494*^9, 
   3.627087992720096*^9}, {3.627089430123393*^9, 3.62708946553926*^9}, {
   3.6270899410744743`*^9, 3.627089975576003*^9}, {3.627090154259264*^9, 
   3.62709018587318*^9}, {3.627092784680006*^9, 3.627092831685966*^9}, 
   3.627133358410522*^9, {3.6271341783952827`*^9, 3.627134222474003*^9}, {
   3.627262341582411*^9, 3.6272623742022247`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{"Uxph2", "-", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"hx", "/", "2"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh2"}], 
   RowBox[{"hx", "/", "2"}]], "//", 
  "Expand"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.627086751099427*^9, 3.627086825393053*^9}, {
   3.627087140578697*^9, 3.6270872088422203`*^9}, {3.6270873443811913`*^9, 
   3.627087352667676*^9}, {3.627087411568122*^9, 3.627087428438532*^9}, {
   3.6270876808669243`*^9, 3.627087822997326*^9}, {3.627087926813339*^9, 
   3.627087967200396*^9}, {3.627088012489108*^9, 3.627088047589972*^9}, {
   3.6270880974700737`*^9, 3.627088117075734*^9}, {3.627088232157497*^9, 
   3.627088236488955*^9}, 3.627133426636508*^9, 3.627220620386643*^9, {
   3.627220849535368*^9, 3.627220869711412*^9}, {3.627232380961404*^9, 
   3.627232409653709*^9}, {3.627232460260913*^9, 3.627232521028924*^9}, {
   3.627233333168247*^9, 3.627233334967742*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", "hx", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "192"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "23040"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"]}]], "Output",
 CellChangeTimes->{
  3.627220968410761*^9, 3.627232410452489*^9, {3.627232490482184*^9, 
   3.627232501136088*^9}, 3.627233335702269*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", "hx", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "192"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "23040"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"]}]], "Output",
 CellChangeTimes->{
  3.627220968410761*^9, 3.627232410452489*^9, {3.627232490482184*^9, 
   3.627232501136088*^9}, 3.627233335712483*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"3", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{"4", "Uxmh"}], "+", "Uxm2h"}], 
   RowBox[{"2", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{"4", "Uxph"}], "-", "Uxp2h"}], 
   RowBox[{"2", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"Uxph", "-", "Uxmh"}], 
    RowBox[{"2", "hx"}]], "//", "Expand"}], "//", 
  "Expand"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.627088700391745*^9, 3.6270887739892817`*^9}, {
  3.627088987613406*^9, 3.627089003076604*^9}, {3.627089156617647*^9, 
  3.627089221341935*^9}, {3.6270892757827187`*^9, 3.627089279138321*^9}, {
  3.627089323090222*^9, 3.627089361862556*^9}, {3.627089407224002*^9, 
  3.6270894112656183`*^9}, {3.627089500415299*^9, 3.627089520240617*^9}, {
  3.627233250472186*^9, 3.627233267884358*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "60"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2520"]}]], "Output",
 CellChangeTimes->{{3.627233255709078*^9, 3.627233268519072*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "60"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2520"]}]], "Output",
 CellChangeTimes->{{3.627233255709078*^9, 3.627233268529554*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "120"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]], "Output",
 CellChangeTimes->{{3.627233255709078*^9, 3.627233268536805*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{"Uxm2h", "-", 
    RowBox[{"8", "Uxmh"}], "+", 
    RowBox[{"8", "Uxph"}], "-", "Uxp2h"}], 
   RowBox[{"12", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"-", "Uxm2h"}], "+", 
    RowBox[{"16", "Uxmh"}], "-", 
    RowBox[{"30", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{"16", "Uxph"}], "-", "Uxp2h"}], 
   RowBox[{"12", 
    SuperscriptBox["hx", "2"]}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "Axmh"}], " ", "Uxm2h"}], "+", 
    RowBox[{"16", 
     RowBox[{"(", 
      RowBox[{"Axmh", "-", "Axmh2"}], ")"}], "Uxmh"}], "  ", "-", 
    RowBox[{"30", 
     RowBox[{"(", 
      RowBox[{"Axph", "+", "Axmh2", "+", "Axph2", "+", "Axmh"}], ")"}], " ", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{"16", 
     RowBox[{"(", 
      RowBox[{"Axph", "-", "Axph2"}], ")"}], "Uxph"}], "-", 
    RowBox[{"Axph", " ", "Uxp2h"}]}], 
   RowBox[{"6", 
    SuperscriptBox["hx", "2"]}]], "//", 
  "Expand"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.62709243992774*^9, 3.627092477789158*^9}, {
   3.6270925091322002`*^9, 3.6270925538997498`*^9}, {3.627092609226488*^9, 
   3.627092657443458*^9}, {3.627092760536333*^9, 3.6270927722293253`*^9}, {
   3.627092850720119*^9, 3.6270928627931643`*^9}, 3.6272333816203957`*^9, {
   3.627234465914467*^9, 3.627234520291049*^9}, {3.62723455167981*^9, 
   3.62723457154572*^9}, {3.627235452466632*^9, 3.627235505314624*^9}, {
   3.627235552207616*^9, 3.627235553353983*^9}, {3.6272355890812902`*^9, 
   3.627235619927414*^9}, {3.6272357370284357`*^9, 3.627235812401532*^9}, {
   3.627235858120166*^9, 3.627235902238163*^9}, {3.6272359676285133`*^9, 
   3.627236016426484*^9}, {3.627236079227324*^9, 3.6272362166369963`*^9}, {
   3.62723630164349*^9, 3.627236325033587*^9}, {3.6272364305737247`*^9, 
   3.6272364488942347`*^9}, 3.6272375382855263`*^9, {3.627241601653563*^9, 
   3.6272416223714857`*^9}, {3.627241722088724*^9, 3.627241740516903*^9}, 
   3.627241785132649*^9, {3.6272418270829353`*^9, 3.6272418423489523`*^9}, {
   3.627256230844797*^9, 3.627256294738776*^9}, {3.627256511412394*^9, 
   3.627256518952765*^9}, {3.62725656023549*^9, 3.627256639821178*^9}, {
   3.6272568458239193`*^9, 3.627256860902731*^9}, {3.627256945340232*^9, 
   3.6272569730810347`*^9}, {3.627258084540243*^9, 3.6272581888842382`*^9}, {
   3.627258239010666*^9, 3.627258353067485*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "-", 
  RowBox[{
   FractionBox["1", "30"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "252"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6272334201932297`*^9, 3.627234572544736*^9, 3.6272355110277452`*^9, 
   3.6272355550021267`*^9, {3.627235612344672*^9, 3.6272356205151167`*^9}, {
   3.6272357551022263`*^9, 3.627235812975746*^9}, {3.6272358637326612`*^9, 
   3.627235902693404*^9}, 3.627235973435986*^9, {3.627236007955791*^9, 
   3.627236017229238*^9}, {3.6272360818960657`*^9, 3.627236217201137*^9}, {
   3.627236302122332*^9, 3.627236325848269*^9}, {3.6272364361059027`*^9, 
   3.627236449277732*^9}, 3.627241625663497*^9, 3.627241742077256*^9, 
   3.627241785787405*^9, {3.627241827914743*^9, 3.627241843312662*^9}, 
   3.627256296604006*^9, {3.627256625341625*^9, 3.627256641783255*^9}, {
   3.627256910057321*^9, 3.627256916961838*^9}, 3.627256973693033*^9, {
   3.627258099714325*^9, 3.627258128537135*^9}, {3.627258160654022*^9, 
   3.6272581894466457`*^9}, 3.627258269685063*^9, {3.627258334891254*^9, 
   3.62725836486267*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "-", 
  RowBox[{
   FractionBox["1", "90"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6272334201932297`*^9, 3.627234572544736*^9, 3.6272355110277452`*^9, 
   3.6272355550021267`*^9, {3.627235612344672*^9, 3.6272356205151167`*^9}, {
   3.6272357551022263`*^9, 3.627235812975746*^9}, {3.6272358637326612`*^9, 
   3.627235902693404*^9}, 3.627235973435986*^9, {3.627236007955791*^9, 
   3.627236017229238*^9}, {3.6272360818960657`*^9, 3.627236217201137*^9}, {
   3.627236302122332*^9, 3.627236325848269*^9}, {3.6272364361059027`*^9, 
   3.627236449277732*^9}, 3.627241625663497*^9, 3.627241742077256*^9, 
   3.627241785787405*^9, {3.627241827914743*^9, 3.627241843312662*^9}, 
   3.627256296604006*^9, {3.627256625341625*^9, 3.627256641783255*^9}, {
   3.627256910057321*^9, 3.627256916961838*^9}, 3.627256973693033*^9, {
   3.627258099714325*^9, 3.627258128537135*^9}, {3.627258160654022*^9, 
   3.6272581894466457`*^9}, 3.627258269685063*^9, {3.627258334891254*^9, 
   3.627258364873577*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"61", " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"3", " ", 
     SuperscriptBox["hx", "2"]}]]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["53", "12"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["143", "576"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["11", "144"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "9"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "36"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1728"], "+", 
  RowBox[{
   FractionBox["3", "80"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "288"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "15"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "120"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "28800"], "-", 
  FractionBox[
   RowBox[{"503", " ", 
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "69120"], "+", 
  FractionBox[
   RowBox[{"47", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "207360"], "-", 
  RowBox[{
   FractionBox["4", "135"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1080"], "-", 
  FractionBox[
   RowBox[{"49", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "51840"], "-", 
  FractionBox[
   RowBox[{"193", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "6220800"], "+", 
  FractionBox[
   RowBox[{"37", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "40320"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "11520"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4838400"], "-", 
  RowBox[{
   FractionBox["1", "126"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"19", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "15120"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "16128"], "-", 
  FractionBox[
   RowBox[{"299", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "203212800"]}]], "Output",
 CellChangeTimes->{
  3.6272334201932297`*^9, 3.627234572544736*^9, 3.6272355110277452`*^9, 
   3.6272355550021267`*^9, {3.627235612344672*^9, 3.6272356205151167`*^9}, {
   3.6272357551022263`*^9, 3.627235812975746*^9}, {3.6272358637326612`*^9, 
   3.627235902693404*^9}, 3.627235973435986*^9, {3.627236007955791*^9, 
   3.627236017229238*^9}, {3.6272360818960657`*^9, 3.627236217201137*^9}, {
   3.627236302122332*^9, 3.627236325848269*^9}, {3.6272364361059027`*^9, 
   3.627236449277732*^9}, 3.627241625663497*^9, 3.627241742077256*^9, 
   3.627241785787405*^9, {3.627241827914743*^9, 3.627241843312662*^9}, 
   3.627256296604006*^9, {3.627256625341625*^9, 3.627256641783255*^9}, {
   3.627256910057321*^9, 3.627256916961838*^9}, 3.627256973693033*^9, {
   3.627258099714325*^9, 3.627258128537135*^9}, {3.627258160654022*^9, 
   3.6272581894466457`*^9}, 3.627258269685063*^9, 3.627258334891254*^9, 
   3.62725836489209*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Axmh2", "+", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "Uxmh"}], "  ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "+", "Axph2"}], ")"}], "Uxph"}]}], 
      ")"}]}], "-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Axmh2", " ", "Uxm2h"}], " ", "+", " ", 
      RowBox[{"Axph2", " ", "Uxp2h"}]}], ")"}], "-", 
    RowBox[{"6", " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}], 
   RowBox[{
    SuperscriptBox["hx", "2"], "/", "4"}]], "//", 
  "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Axmh2", " ", "Uxm2h"}], " ", "+", " ", 
      RowBox[{"Axph2", " ", "Uxp2h"}]}], ")"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Axmh2", "+", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "Uxmh"}], "  ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "+", "Axph2"}], ")"}], "Uxph"}]}], 
      ")"}]}], "-", 
    RowBox[{"10", " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}], 
   RowBox[{"4", 
    SuperscriptBox["hx", "2"]}]], "//", "Expand"}]}], "Input",
 CellChangeTimes->{{3.627246854557211*^9, 3.6272468620217457`*^9}, {
  3.6272474116671953`*^9, 3.627247446538128*^9}, {3.627250576253707*^9, 
  3.627250577556652*^9}, {3.627251891714122*^9, 3.627251921795333*^9}, {
  3.627251972864985*^9, 3.627251987472534*^9}, {3.627252250019611*^9, 
  3.627252354279393*^9}, {3.627252397287146*^9, 3.6272525065220327`*^9}, {
  3.62725255857743*^9, 3.6272526362221003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "48"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "48"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "12"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "576"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "480"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5760"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5760"], "-", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "69120"], "-", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["31", "360"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2073600"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "80640"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "-", 
  RowBox[{
   FractionBox["1", "10"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "240"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "19200"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3225600"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627246863616366*^9, 3.6272472988315067`*^9, {3.6272474125243893`*^9, 
   3.62724744718589*^9}, 3.627250579556473*^9, 3.627251922623094*^9, {
   3.6272519742984533`*^9, 3.62725198825114*^9}, {3.627252282978924*^9, 
   3.62725230569611*^9}, {3.6272524179826803`*^9, 3.627252507013084*^9}, {
   3.6272525678703623`*^9, 3.62725263716438*^9}},
 LineBreakWithin->False],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "288"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "256"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "256"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1024"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4608"], "+", 
  RowBox[{
   FractionBox["17", "240"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5760"], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "460800"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "30720"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "30720"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "122880"], "+", 
  RowBox[{
   FractionBox["17", "360"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "92160"], "+", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "11059200"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "774144"], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "77414400"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2016"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "48384"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3870720"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "650280960"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627246863616366*^9, 3.6272472988315067`*^9, {3.6272474125243893`*^9, 
   3.62724744718589*^9}, 3.627250579556473*^9, 3.627251922623094*^9, {
   3.6272519742984533`*^9, 3.62725198825114*^9}, {3.627252282978924*^9, 
   3.62725230569611*^9}, {3.6272524179826803`*^9, 3.627252507013084*^9}, {
   3.6272525678703623`*^9, 3.627252637191021*^9}},
 LineBreakWithin->False]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Axmh2", " ", "Uxm2h"}], " ", "+", " ", 
     RowBox[{"Axph2", " ", "Uxp2h"}]}], ")"}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Axph2", " ", "Uxm2h"}], " ", "+", 
     RowBox[{"Axmh2", " ", "Uxp2h"}]}], ")"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.627253718546424*^9, 3.627253733116765*^9}, {
   3.62725376755249*^9, 3.627253810172804*^9}, 3.627253942728217*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["8", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "9"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "480"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "720"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["8", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "45"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3600"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "80640"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "120960"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "604800"], "+", 
  RowBox[{
   FractionBox["16", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["2", "945"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "37800"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "6350400"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627253734046061*^9, {3.627253768169374*^9, 3.62725381135612*^9}, 
   3.6272539432397346`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Axmh2", " ", "Uxm2h"}], " ", "+", " ", 
    RowBox[{"Axph2", " ", "Uxp2h"}]}], "//", "Expand"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Axph2", " ", "Uxm2h"}], " ", "+", 
   RowBox[{"Axmh2", " ", "Uxp2h"}]}], " ", "//", "Expand"}]}], "Input",
 CellChangeTimes->{{3.6272533968171587`*^9, 3.627253412874628*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "192"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "96"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "288"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "960"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
  RowBox[{
   FractionBox["4", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "90"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7200"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "23040"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "11520"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "34560"], "+", 
  RowBox[{
   FractionBox["8", "45"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "45"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2160"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "259200"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "161280"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "241920"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1209600"], "+", 
  RowBox[{
   FractionBox["8", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "945"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "75600"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "12700800"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{3.6272534134515657`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "192"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "96"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "288"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "960"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
  RowBox[{
   FractionBox["4", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "90"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7200"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "23040"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "11520"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "34560"], "+", 
  RowBox[{
   FractionBox["8", "45"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "45"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2160"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "259200"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "161280"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "241920"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1209600"], "-", 
  RowBox[{
   FractionBox["8", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "945"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "75600"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "12700800"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{3.6272534134703503`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Axmh", "-", "Axmh2"}], ")"}], " ", "Uxm2h"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Axph", "-", "Axph2"}], ")"}], " ", "Uxp2h"}]}], "//", 
  "Expand"}]], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.627254094141028*^9, 3.627254094709276*^9}, 
   3.627254125762641*^9, {3.627254158739565*^9, 3.6272542057681828`*^9}, {
   3.627254266969267*^9, 3.627254271932893*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "2"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "12"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "18"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "64"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "32"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "96"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["31", "960"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
  RowBox[{
   FractionBox["4", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "90"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7200"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2560"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1280"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
  RowBox[{
   FractionBox["1", "15"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "144"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "28800"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "161280"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "241920"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1209600"], "+", 
  RowBox[{
   FractionBox["8", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "135"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "75600"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "12700800"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.62725409550841*^9, 3.627254126262542*^9, {3.6272541593436203`*^9, 
   3.627254206404348*^9}, 3.627254272466591*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Axph2", " ", "Uxp2h"}], "-", 
       RowBox[{"Axmh2", " ", "Uxm2h"}]}], ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Axmh2", "+", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "Uxmh"}], "  ", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "+", "Axph2"}], ")"}], "Uxph"}]}], 
      ")"}]}], "//", "Expand"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Axmh", "+", "Axmh2"}], ")"}], " ", "Uxm2h"}], " ", "//", 
    "Expand"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Axmh", "+", "Axmh2"}], ")"}], " ", "Uxp2h"}], "//", "Expand"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Axph", "-", "Axph2"}], ")"}], " ", "Uxm2h"}], " ", "//", 
    "Expand"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Axph", "-", "Axph2"}], ")"}], " ", "Uxp2h"}], "//", "Expand"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"Axph2", " ", "Uxp2h"}], "-", 
      RowBox[{"Axmh2", " ", "Uxm2h"}]}], "//", "Expand"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Axmh2", "+", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "Uxmh"}], "  ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "+", "Axph2"}], ")"}], "Uxph"}]}], 
      "//", 
      RowBox[{
       RowBox[{"Expand", "\[IndentingNewLine]", 
        RowBox[{"(", 
         RowBox[{"Axmh2", "+", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "Uxmh"}], "  ", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "+", "Axph2"}], ")"}], 
        "Uxph"}]}]}], "//", "Expand"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.627241878317382*^9, 3.627241902873666*^9}, {
   3.627242255201695*^9, 3.6272422693120728`*^9}, {3.627242368987275*^9, 
   3.62724239561182*^9}, {3.627242499377524*^9, 3.627242501814945*^9}, {
   3.627242546322031*^9, 3.627242585227886*^9}, {3.627246646948901*^9, 
   3.627246664148322*^9}, {3.627246695195716*^9, 3.627246698969039*^9}, 
   3.6272467454142942`*^9, {3.627253098463756*^9, 3.627253156409293*^9}, {
   3.627253234103441*^9, 3.6272532430382643`*^9}, {3.6272539844259243`*^9, 
   3.627254048606657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "2"], " ", "hx", " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"4", " ", "hx", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "8"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["5", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "4"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["8", "3"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["5", "6"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "384"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["17", "192"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "192"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["17", "288"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "12"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "576"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1280"], "+", 
  RowBox[{
   FractionBox["11", "640"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["11", "640"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["11", "960"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "-", 
  RowBox[{
   FractionBox["8", "15"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["2", "5"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "20"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4800"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "9216"], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4608"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4608"], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "6912"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "13824"], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "34560"], "+", 
  RowBox[{
   FractionBox["8", "45"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "15"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "60"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "103680"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "215040"], "+", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "107520"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "107520"], "+", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "161280"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "+", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "806400"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2419200"], "-", 
  RowBox[{
   FractionBox["16", "315"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "105"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "63"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "210"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "15120"], "+", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "50400"], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "362880"], "+", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "8467200"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627242272350891*^9, {3.627242382327375*^9, 3.6272424008376703`*^9}, 
   3.627242549906039*^9, 3.6272425861797123`*^9, 3.627246664787909*^9, 
   3.6272466997848997`*^9, 3.62724674614494*^9, {3.6272531232095423`*^9, 
   3.627253156972937*^9}, 3.6272532449671917`*^9, 3.627254049283205*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "2"], " ", "hx", " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"4", " ", "hx", " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "8"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "4"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "16"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["8", "3"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "6"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "384"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "192"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "192"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "288"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "12"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["17", "576"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1280"], "-", 
  RowBox[{
   FractionBox["11", "640"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["11", "640"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["11", "960"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  RowBox[{
   FractionBox["8", "15"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "5"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "20"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4800"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "9216"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4608"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4608"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "6912"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "13824"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "34560"], "+", 
  RowBox[{
   FractionBox["8", "45"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "15"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "60"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "103680"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "215040"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "107520"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "107520"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "161280"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "806400"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2419200"], "+", 
  RowBox[{
   FractionBox["16", "315"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["4", "105"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "63"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "210"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "15120"], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "50400"], "+", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "362880"], "-", 
  FractionBox[
   RowBox[{"43", " ", 
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "8467200"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627242272350891*^9, {3.627242382327375*^9, 3.6272424008376703`*^9}, 
   3.627242549906039*^9, 3.6272425861797123`*^9, 3.627246664787909*^9, 
   3.6272466997848997`*^9, 3.62724674614494*^9, {3.6272531232095423`*^9, 
   3.627253156972937*^9}, 3.6272532449671917`*^9, 3.627254049327784*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "hx", " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "48"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "24"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "24"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "36"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "128"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["5", "64"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "64"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["5", "96"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "72"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "192"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5760"], "-", 
  RowBox[{
   FractionBox["2", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "10"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "180"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "96"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5120"], "-", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2560"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2560"], "-", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7680"], "-", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "19200"], "+", 
  RowBox[{
   FractionBox["2", "45"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "30"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "540"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "288"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "43200"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "57600"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "483840"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "967680"], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2419200"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7257600"], "-", 
  RowBox[{
   FractionBox["4", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "105"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "270"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1008"], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "151200"], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "28800"], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627242272350891*^9, {3.627242382327375*^9, 3.6272424008376703`*^9}, 
   3.627242549906039*^9, 3.6272425861797123`*^9, 3.627246664787909*^9, 
   3.6272466997848997`*^9, 3.62724674614494*^9, {3.6272531232095423`*^9, 
   3.627253156972937*^9}, 3.6272532449671917`*^9, 3.627254049347542*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "hx", " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "48"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "24"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "24"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["2", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "36"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "128"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "64"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "64"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "96"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "72"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["5", "192"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "5"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1920"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5760"], "+", 
  RowBox[{
   FractionBox["2", "15"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "10"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "180"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "96"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5120"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2560"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2560"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7680"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "19200"], "+", 
  RowBox[{
   FractionBox["2", "45"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "30"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["7", "540"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "288"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "43200"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "57600"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "322560"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "483840"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "967680"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2419200"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7257600"], "+", 
  RowBox[{
   FractionBox["4", "315"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "105"], " ", 
   SuperscriptBox["hx", "9"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "270"], " ", 
   SuperscriptBox["hx", "10"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "1008"], "+", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "151200"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "13"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "28800"], "+", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "14"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.627242272350891*^9, {3.627242382327375*^9, 3.6272424008376703`*^9}, 
   3.627242549906039*^9, 3.6272425861797123`*^9, 3.627246664787909*^9, 
   3.6272466997848997`*^9, 3.62724674614494*^9, {3.6272531232095423`*^9, 
   3.627253156972937*^9}, 3.6272532449671917`*^9, 3.6272540493796663`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"A", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", 
          RowBox[{"3", "h"}]}], ")"}], ",", 
        RowBox[{"(", 
         RowBox[{"x", "-", 
          RowBox[{"2", "h"}]}], ")"}], ",", 
        RowBox[{"(", 
         RowBox[{"x", "-", "h"}], ")"}], ",", "x"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"3", "h"}]}], ")"}], "2"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"2", "h"}]}], ")"}], "2"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "h"}], ")"}], "2"], ",", 
        SuperscriptBox["x", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"3", "h"}]}], ")"}], "3"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"2", "h"}]}], ")"}], "3"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "h"}], ")"}], "3"], ",", 
        SuperscriptBox["x", "3"]}], "}"}]}], "}"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", 
          RowBox[{"2", "h"}]}], ")"}], ",", 
        RowBox[{"(", 
         RowBox[{"x", "-", "h"}], ")"}], ",", "x", ",", 
        RowBox[{"(", 
         RowBox[{"x", "+", "h"}], ")"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"2", "h"}]}], ")"}], "2"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "h"}], ")"}], "2"], ",", 
        SuperscriptBox["x", "2"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "+", "h"}], ")"}], "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"2", "h"}]}], ")"}], "3"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "h"}], ")"}], "3"], ",", 
        SuperscriptBox["x", "3"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "+", "h"}], ")"}], "3"]}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", 
      RowBox[{"2", "x"}], ",", 
      RowBox[{"3", 
       SuperscriptBox["x", "2"]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"LinearSolve", "[", 
    RowBox[{"A", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.627094292322651*^9, {3.627094341907029*^9, 3.627094361207286*^9}, {
   3.627094420229432*^9, 3.6270944431084948`*^9}, {3.627098765199163*^9, 
   3.627098874216345*^9}, {3.6270989206480303`*^9, 3.627098959883855*^9}, {
   3.627099297973467*^9, 3.6270993457970324`*^9}}],

Cell[BoxData[
 RowBox[{"y", "=."}]], "Input",
 CellChangeTimes->{{3.629308185957736*^9, 3.6293081868671207`*^9}, {
  3.629340432163588*^9, 3.629340434528946*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{"Uxm2h", "-", 
    RowBox[{"6", "Uxmh"}], "+", 
    RowBox[{"3", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{"2", "Uxph"}]}], 
   RowBox[{"6", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", "Uxp2h"}], "+", 
     RowBox[{"6", "Uxph"}], "-", 
     RowBox[{"3", 
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "-", 
     RowBox[{"2", "Uxmh"}]}], 
    RowBox[{"6", "hx"}]], "//", "Expand"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxm2h", "-", 
        RowBox[{"6", "Uxmh"}], "+", 
        RowBox[{"3", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"2", "Uxph"}]}], 
       RowBox[{"6", "hx"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "Uxp2h"}], "+", 
        RowBox[{"6", "Uxph"}], "-", 
        RowBox[{"3", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{"2", "Uxmh"}]}], 
       RowBox[{"6", "hx"}]]}], ")"}]}], "//", "Expand"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"6", "hx"}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "Axp2h"}], " ", 
        FractionBox[
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "-", 
          RowBox[{"6", "Uxph"}], "+", 
          RowBox[{"3", "Uxp2h"}], "+", 
          RowBox[{"2", "Uxp3h"}]}], 
         RowBox[{"6", "hx"}]]}], "+", 
       RowBox[{"6", "Axph", " ", 
        FractionBox[
         RowBox[{"Uxmh", "-", 
          RowBox[{"6", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"3", "Uxph"}], "+", 
          RowBox[{"2", "Uxp2h"}]}], 
         RowBox[{"6", "hx"}]]}], "-", 
       RowBox[{"3", 
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        FractionBox[
         RowBox[{"Uxm2h", "-", 
          RowBox[{"6", "Uxmh"}], "+", 
          RowBox[{"3", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"2", "Uxph"}]}], 
         RowBox[{"6", "hx"}]]}], "-", 
       RowBox[{"2", "Axmh", " ", 
        FractionBox[
         RowBox[{"Uxm3h", "-", 
          RowBox[{"6", "Uxm2h"}], "+", 
          RowBox[{"3", "Uxmh"}], "+", 
          RowBox[{"2", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}]}], 
         RowBox[{"6", "hx"}]]}]}], ")"}]}], "//", "Expand"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{"6", "hx"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Axm2h", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", 
           RowBox[{"6", "Uxph"}], "+", 
           RowBox[{"3", "Uxp2h"}], "+", 
           RowBox[{"2", "Uxp3h"}]}], 
          RowBox[{"6", "hx"}]]}], "-", 
        RowBox[{"6", "Axmh", " ", 
         FractionBox[
          RowBox[{"Uxmh", "-", 
           RowBox[{"6", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"3", "Uxph"}], "+", 
           RowBox[{"2", "Uxp2h"}]}], 
          RowBox[{"6", "hx"}]]}], "+", 
        RowBox[{"3", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], 
         FractionBox[
          RowBox[{"Uxm2h", "-", 
           RowBox[{"6", "Uxmh"}], "+", 
           RowBox[{"3", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"2", "Uxph"}]}], 
          RowBox[{"6", "hx"}]]}], "+", 
        RowBox[{"2", "Axph", " ", 
         FractionBox[
          RowBox[{"Uxm3h", "-", 
           RowBox[{"6", "Uxm2h"}], "+", 
           RowBox[{"3", "Uxmh"}], "+", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], 
          RowBox[{"6", "hx"}]]}]}], ")"}]}], "//", "Expand"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", 
     RowBox[{"6", "hx"}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Axm2h", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"6", "Uxmh"}], "-", 
         RowBox[{"3", "Uxm2h"}], "-", 
         RowBox[{"2", "Uxm3h"}]}], 
        RowBox[{"6", "hx"}]]}], "-", 
      RowBox[{"6", "Axmh", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxph"}], "+", 
         RowBox[{"6", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"3", "Uxmh"}], "-", 
         RowBox[{"2", "Uxm2h"}]}], 
        RowBox[{"6", "hx"}]]}], "+", 
      RowBox[{"3", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxp2h"}], "+", 
         RowBox[{"6", "Uxph"}], "-", 
         RowBox[{"3", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", "Uxmh"}]}], 
        RowBox[{"6", "hx"}]]}], "+", 
      RowBox[{"2", "Axph", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxp3h"}], "+", 
         RowBox[{"6", "Uxp2h"}], "-", 
         RowBox[{"3", "Uxph"}], "-", 
         RowBox[{"2", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], 
        RowBox[{"6", "hx"}]]}]}], ")"}]}], "//", "Expand"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"12", "hx"}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Axp2h", " ", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "Uxp3h"}], "-", 
        RowBox[{"3", "Uxp2h"}], "+", 
        RowBox[{"6", "Uxph"}], "-", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], 
       RowBox[{"6", "hx"}]]}], "+", 
     RowBox[{"Axph", " ", 
      RowBox[{"(", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxp3h"}], "+", 
         RowBox[{"12", "Uxp2h"}], "+", 
         RowBox[{"6", "Uxph"}], "-", 
         RowBox[{"20", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"3", "Uxmh"}]}], 
        RowBox[{"3", "hx"}]], ")"}]}], "-", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], 
      RowBox[{"(", 
       FractionBox[
        RowBox[{"Uxp2h", "-", 
         RowBox[{"4", "Uxph"}], "+", 
         RowBox[{"6", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"4", "Uxmh"}], "+", "Uxm2h"}], 
        RowBox[{"2", "hx"}]], ")"}]}], "+", 
     RowBox[{"Axmh", 
      RowBox[{"(", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"3", "Uxph"}], "-", 
         RowBox[{"20", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"6", "Uxmh"}], "+", 
         RowBox[{"12", "Uxm2h"}], "-", "Uxm3h"}], 
        RowBox[{"3", "hx"}]], ")"}]}], "+", 
     RowBox[{"Axm2h", " ", 
      FractionBox[
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"6", "Uxmh"}], "-", 
        RowBox[{"3", "Uxm2h"}], "-", 
        RowBox[{"2", "Uxm3h"}]}], 
       RowBox[{"6", "hx"}]]}]}], ")"}]}], "//", 
  "Expand"}], "\[IndentingNewLine]", 
 RowBox[{"Collect", "[", 
  RowBox[{"%", ",", 
   SuperscriptBox["hx", "4"]}], "]"}], "\[IndentingNewLine]"}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.6270993726707497`*^9, 3.627099488958229*^9}, {
   3.627099533547464*^9, 3.62709954175331*^9}, {3.627260452142527*^9, 
   3.627260478341013*^9}, {3.627260564713459*^9, 3.627260650785392*^9}, 
   3.6272607052023067`*^9, {3.627260881695068*^9, 3.627260885231966*^9}, {
   3.6272609594603148`*^9, 3.627261049730756*^9}, {3.627261086434305*^9, 
   3.627261176781251*^9}, 3.627261231879677*^9, {3.627261303349181*^9, 
   3.627261376233529*^9}, {3.627261413329155*^9, 3.627261496827035*^9}, {
   3.627261585960629*^9, 3.62726160159429*^9}, {3.6272616526354837`*^9, 
   3.627261660164835*^9}, 3.627261752291708*^9, {3.62726227163148*^9, 
   3.6272623114867563`*^9}, {3.627262404517291*^9, 3.627262404925408*^9}, {
   3.627262457294139*^9, 3.627262479477133*^9}, {3.62726253085144*^9, 
   3.627262539649747*^9}, {3.627262701523654*^9, 3.627262723725965*^9}, {
   3.6272627878586893`*^9, 3.6272628608929443`*^9}, {3.627262945724921*^9, 
   3.627262972540798*^9}, {3.627263105773885*^9, 3.627263142531701*^9}, {
   3.6272632611151657`*^9, 3.627263368172577*^9}, {3.627263426139974*^9, 
   3.6272636448601847`*^9}, {3.627263687628087*^9, 3.627263788518229*^9}, {
   3.627263932479604*^9, 3.627264006432763*^9}, {3.627264051097536*^9, 
   3.627264095588155*^9}, {3.627264157588563*^9, 3.6272642072416697`*^9}, {
   3.62726424461334*^9, 3.627264255005698*^9}, {3.627264285086327*^9, 
   3.62726435690101*^9}, {3.62726439592789*^9, 3.627264399196328*^9}, {
   3.62726444398332*^9, 3.627264599403865*^9}, {3.627264638299775*^9, 
   3.627264663701079*^9}, {3.6272648025054407`*^9, 3.627264814229741*^9}, {
   3.6272650353929043`*^9, 3.627265038520751*^9}, {3.627265199112062*^9, 
   3.62726521142271*^9}, {3.627265401415082*^9, 3.627265414858273*^9}, {
   3.6272654953731422`*^9, 3.627265509333941*^9}, {3.629340493985785*^9, 
   3.629340508840735*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "3"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "30"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "72"], " ", 
   SuperscriptBox["hx", "5"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "252"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.62726042412904*^9, {3.6272604625972548`*^9, 3.6272604788563633`*^9}, {
   3.627260592132291*^9, 3.627260652320245*^9}, 3.6272608857384977`*^9, {
   3.6272609662104597`*^9, 3.627260999971315*^9}, {3.627261468061035*^9, 
   3.627261497254649*^9}, 3.6272616025631227`*^9, {3.627261653590934*^9, 
   3.627261661446978*^9}, 3.627261752784095*^9, {3.6272624695621023`*^9, 
   3.627262479931478*^9}, 3.6272625401658897`*^9, 3.6272627341340513`*^9, 
   3.627262861489032*^9, {3.6272629463008127`*^9, 3.62726297399024*^9}, {
   3.627263133783948*^9, 3.6272631516548967`*^9}, 3.627263369596431*^9, 
   3.6272634814660177`*^9, 3.627263611756927*^9, 3.62726364581697*^9, 
   3.62726370169108*^9, 3.627263736104784*^9, 3.627263789381652*^9, 
   3.627263961116681*^9, 3.627264008482565*^9, {3.627264041373769*^9, 
   3.6272640960186462`*^9}, {3.627264169026926*^9, 3.6272641890594873`*^9}, 
   3.627264223880432*^9, 3.627264256329997*^9, {3.627264321450149*^9, 
   3.6272643581247597`*^9}, 3.627264448735174*^9, 3.627264479475325*^9, 
   3.627264527431932*^9, {3.627264595020281*^9, 3.6272645999609547`*^9}, 
   3.627264707507077*^9, 3.6272648150775337`*^9, 3.627264930957488*^9, 
   3.627265042942659*^9, 3.627265371948807*^9, 3.6272654159395*^9, {
   3.627265490089396*^9, 3.627265510021247*^9}, {3.629308173713911*^9, 
   3.6293081902072277`*^9}, 3.629308282339673*^9, 3.629308315202875*^9, {
   3.629340419998185*^9, 3.629340442152389*^9}, 3.629340509837997*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "48"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "30"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "5"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["7", "200"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"5", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "36"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"89", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
  RowBox[{
   FractionBox["1", "15"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "8"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"91", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "2160"], "-", 
  FractionBox[
   RowBox[{"73", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "12960"], "-", 
  RowBox[{
   FractionBox["1", "540"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["4", "945"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"31", " ", 
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"3", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "7560"], "-", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5670"], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "75600"], "-", 
  FractionBox[
   RowBox[{"137", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "170100"], "-", 
  RowBox[{
   FractionBox["5", "84"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["2", "945"], " ", 
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["4", "945"], " ", 
   SuperscriptBox["hx", "7"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["13", "360"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["4", "945"], " ", 
   SuperscriptBox["hx", "8"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"7", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5670"], "-", 
  FractionBox[
   RowBox[{"71", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "-", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"5", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4725"], "+", 
  FractionBox[
   RowBox[{"137", " ", 
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "170100"], "-", 
  FractionBox[
   RowBox[{"101", " ", 
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "302400"], "-", 
  FractionBox[
   RowBox[{"11", " ", 
    SuperscriptBox["hx", "12"], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"7", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]}], "33075"]}]], "Output",
 PageWidth->Infinity,
 CellChangeTimes->{
  3.62726042412904*^9, {3.6272604625972548`*^9, 3.6272604788563633`*^9}, {
   3.627260592132291*^9, 3.627260652320245*^9}, 3.6272608857384977`*^9, {
   3.6272609662104597`*^9, 3.627260999971315*^9}, {3.627261468061035*^9, 
   3.627261497254649*^9}, 3.6272616025631227`*^9, {3.627261653590934*^9, 
   3.627261661446978*^9}, 3.627261752784095*^9, {3.6272624695621023`*^9, 
   3.627262479931478*^9}, 3.6272625401658897`*^9, 3.6272627341340513`*^9, 
   3.627262861489032*^9, {3.6272629463008127`*^9, 3.62726297399024*^9}, {
   3.627263133783948*^9, 3.6272631516548967`*^9}, 3.627263369596431*^9, 
   3.6272634814660177`*^9, 3.627263611756927*^9, 3.62726364581697*^9, 
   3.62726370169108*^9, 3.627263736104784*^9, 3.627263789381652*^9, 
   3.627263961116681*^9, 3.627264008482565*^9, {3.627264041373769*^9, 
   3.6272640960186462`*^9}, {3.627264169026926*^9, 3.6272641890594873`*^9}, 
   3.627264223880432*^9, 3.627264256329997*^9, {3.627264321450149*^9, 
   3.6272643581247597`*^9}, 3.627264448735174*^9, 3.627264479475325*^9, 
   3.627264527431932*^9, {3.627264595020281*^9, 3.6272645999609547`*^9}, 
   3.627264707507077*^9, 3.6272648150775337`*^9, 3.627264930957488*^9, 
   3.627265042942659*^9, 3.627265371948807*^9, 3.6272654159395*^9, {
   3.627265490089396*^9, 3.627265510021247*^9}, {3.629308173713911*^9, 
   3.6293081902072277`*^9}, 3.629308282339673*^9, 3.629308315202875*^9, {
   3.629340419998185*^9, 3.629340442152389*^9}, 3.629340509888397*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "3"]}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "30"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "5"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "15"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"6", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["7", "48"]}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"4", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "12"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "36"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"6", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "8"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"6", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "540"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["5", "84"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["2", "945"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "7"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["4", "945"]}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{
       FractionBox["4", "945"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["7", "200"]}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"5", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      FractionBox[
       RowBox[{"89", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
      FractionBox[
       RowBox[{"91", " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "2160"], "-", 
      FractionBox[
       RowBox[{"31", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "7560"], "-", 
      RowBox[{
       FractionBox["13", "360"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["4", "945"], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "9"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"17", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5670"]}], "+", 
      FractionBox[
       RowBox[{"17", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "5670"]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "10"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"73", " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "12960"]}], "-", 
      FractionBox[
       RowBox[{"127", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "75600"], "-", 
      FractionBox[
       RowBox[{"71", " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "-", 
      FractionBox[
       RowBox[{"8", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "4725"]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "11"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"137", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "170100"]}], "+", 
      FractionBox[
       RowBox[{"137", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "170100"]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["hx", "12"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"101", " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "302400"]}], "-", 
      FractionBox[
       RowBox[{"11", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]}], "33075"]}], ")"}]}]}],
  FontSize->12]], "Input",
 CellChangeTimes->{3.629340533739585*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", 
     RowBox[{"12", "hx"}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"axp2h", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], "uxp3h"}], "-", 
         RowBox[{"3", "uxp2h"}], "+", 
         RowBox[{"6", "uxph"}], "-", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], 
        RowBox[{"6", "hx"}]]}], "+", 
      RowBox[{"axph", " ", 
       RowBox[{"(", " ", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "uxp3h"}], "+", 
          RowBox[{"12", "uxp2h"}], "+", 
          RowBox[{"6", "uxph"}], "-", 
          RowBox[{"20", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"3", "uxmh"}]}], 
         RowBox[{"3", "hx"}]], ")"}]}], "-", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"(", 
        FractionBox[
         RowBox[{"uxp2h", "-", 
          RowBox[{"4", "uxph"}], "+", 
          RowBox[{"6", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "-", 
          RowBox[{"4", "uxmh"}], "+", "uxm2h"}], 
         RowBox[{"2", "hx"}]], ")"}]}], "+", 
      RowBox[{"axmh", 
       RowBox[{"(", " ", 
        FractionBox[
         RowBox[{
          RowBox[{"3", "uxph"}], "-", 
          RowBox[{"20", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"6", "uxmh"}], "+", 
          RowBox[{"12", "uxm2h"}], "-", "uxm3h"}], 
         RowBox[{"3", "hx"}]], ")"}]}], "+", 
      RowBox[{"axm2h", " ", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"6", "uxmh"}], "-", 
         RowBox[{"3", "uxm2h"}], "-", 
         RowBox[{"2", "uxm3h"}]}], 
        RowBox[{"6", "hx"}]]}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"uxp3h", ",", "uxp2h", ",", "uxph", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", "uxmh", ",", "uxm2h", ",", 
     "uxm3h"}], "}"}], ",", "Simplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6272655861892653`*^9, 3.6272656053755913`*^9}, {
  3.627306357668008*^9, 3.62730649827162*^9}, {3.627306959427047*^9, 
  3.627306961657686*^9}},
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"axm2h", "+", "axmh"}], ")"}], " ", "uxm3h"}], 
    RowBox[{"36", " ", 
     SuperscriptBox["hx", "2"]}]]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"axp2h", "+", "axph"}], ")"}], " ", "uxp3h"}], 
   RowBox[{"36", " ", 
    SuperscriptBox["hx", "2"]}]], "-", 
  FractionBox[
   RowBox[{"uxm2h", " ", 
    RowBox[{"(", 
     RowBox[{"axm2h", "-", 
      RowBox[{"8", " ", "axmh"}], "+", 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ")"}]}], 
   RowBox[{"24", " ", 
    SuperscriptBox["hx", "2"]}]], "-", 
  FractionBox[
   RowBox[{"uxp2h", " ", 
    RowBox[{"(", 
     RowBox[{"axp2h", "-", 
      RowBox[{"8", " ", "axph"}], "+", 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ")"}]}], 
   RowBox[{"24", " ", 
    SuperscriptBox["hx", "2"]}]], "+", 
  FractionBox[
   RowBox[{"uxmh", " ", 
    RowBox[{"(", 
     RowBox[{"axm2h", "+", 
      RowBox[{"2", " ", "axmh"}], "+", "axph", "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], 
   RowBox[{"12", " ", 
    SuperscriptBox["hx", "2"]}]], "+", 
  FractionBox[
   RowBox[{"uxph", " ", 
    RowBox[{"(", 
     RowBox[{"axmh", "+", "axp2h", "+", 
      RowBox[{"2", " ", "axph"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], 
   RowBox[{"12", " ", 
    SuperscriptBox["hx", "2"]}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"axm2h", "+", 
      RowBox[{"40", " ", "axmh"}], "+", "axp2h", "+", 
      RowBox[{"40", " ", "axph"}], "+", 
      RowBox[{"18", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"72", " ", 
    SuperscriptBox["hx", "2"]}]]}]], "Output",
 CellChangeTimes->{3.627306503013712*^9, 3.627306962708276*^9},
 FontSize->36]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "Uxm3h"}], "+", 
    RowBox[{"9", "Uxm2h"}], "-", 
    RowBox[{"18", "Uxmh"}], "+", 
    RowBox[{"11", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}], 
   RowBox[{"6", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"2", "Uxp3h"}], "-", 
    RowBox[{"9", "Uxp2h"}], "+", 
    RowBox[{"18", "Uxph"}], "-", 
    RowBox[{"11", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}], 
   RowBox[{"6", "hx"}]], "//", "Expand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox["1", "hx"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Axph2", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "Uxm3h"}], "+", 
        RowBox[{"9", "Uxm2h"}], "-", 
        RowBox[{"18", "Uxmh"}], "+", 
        RowBox[{"11", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], 
       RowBox[{"6", "hx"}]]}], "-", 
     RowBox[{"Axmh2", 
      FractionBox[
       RowBox[{
        RowBox[{"2", "Uxp3h"}], "-", 
        RowBox[{"9", "Uxp2h"}], "+", 
        RowBox[{"18", "Uxph"}], "-", 
        RowBox[{"11", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], 
       RowBox[{"6", "hx"}]]}]}], ")"}]}], "//", "Expand"}]}], "Input",
 CellChangeTimes->{{3.627098996778757*^9, 3.627099049984746*^9}, {
  3.627099104643321*^9, 3.627099126168666*^9}, {3.627099160307349*^9, 
  3.627099266972993*^9}}],

Cell[BoxData[{
 RowBox[{"A", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", "h"}], ")"}], ",", "x", ",", 
      RowBox[{"(", 
       RowBox[{"x", "+", "h"}], ")"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "-", "h"}], ")"}], "2"], ",", 
      SuperscriptBox["x", "2"], ",", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "+", "h"}], ")"}], "2"]}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "1", ",", 
    RowBox[{"2", "x"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"LinearSolve", "[", 
  RowBox[{"A", ",", "b"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.62709994595417*^9, 3.6271000013433733`*^9}, {
  3.62710012735525*^9, 3.627100148836364*^9}}],

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", "h"}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
     RowBox[{"u", "[", 
      RowBox[{"x", "+", 
       RowBox[{"2", "h"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", "h"}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
     RowBox[{"u", "[", 
      RowBox[{"x", "+", "h"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", "h"}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
     RowBox[{"u", "[", "x", "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", "h"}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
     RowBox[{"u", "[", 
      RowBox[{"x", "-", "h"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", "h"}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "+", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", 
          FractionBox["h", "2"]}], "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"A", "[", 
         RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
     RowBox[{"u", "[", 
      RowBox[{"x", "+", 
       RowBox[{"2", "h"}]}], "]"}]}]}], ",", 
   RowBox[{"{", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.627240264473778*^9, 3.627240305521517*^9}, {
  3.6272408274761257`*^9, 3.627240843442893*^9}, {3.627240877631699*^9, 
  3.627240957713861*^9}, {3.627240992700224*^9, 3.627241000485721*^9}}],

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", "h"}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", "h"}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", "h"}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", "h"}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", "h"}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "+", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", 
           FractionBox["h", "2"]}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"A", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "-", 
         RowBox[{"2", "h"}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "-", "h"}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], "x"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], "x"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "+", "h"}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", "h"}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "+", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"b", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", 
            FractionBox["h", "2"]}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"A", "[", 
           RowBox[{"x", "-", "h"}], "]"}]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "+", 
         RowBox[{"2", "h"}]}], ")"}]}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.627241192746799*^9, 3.6272412807935257`*^9}, {
   3.6272413340361967`*^9, 3.62724140077697*^9}, 3.6272414367973557`*^9, {
   3.627241484628314*^9, 3.627241506018929*^9}, {3.627241538332692*^9, 
   3.627241546121398*^9}}]
},
WindowSize->{1302, 916},
WindowMargins->{{137, Automatic}, {Automatic, 61}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, WindowSize -> {808, 655}, 
  WindowMargins -> {{279, Automatic}, {Automatic, 0}}, Visible -> False, 
  FrontEndVersion -> 
  "10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, 2014)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 30680, 1093, 566, "Input"],
Cell[CellGroupData[{
Cell[31263, 1117, 1105, 23, 109, "Input"],
Cell[32371, 1142, 2083, 77, 50, "Output"],
Cell[34457, 1221, 2083, 77, 50, "Output"]
}, Open  ]],
Cell[36555, 1301, 271, 10, 28, "Input"],
Cell[CellGroupData[{
Cell[36851, 1315, 1088, 29, 144, "Input"],
Cell[37942, 1346, 1750, 65, 50, "Output"],
Cell[39695, 1413, 1750, 65, 50, "Output"],
Cell[41448, 1480, 1163, 43, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42648, 1528, 2563, 56, 148, "Input"],
Cell[45214, 1586, 1736, 45, 48, "Output"],
Cell[46953, 1633, 1447, 34, 48, "Output"],
Cell[48403, 1669, 15366, 554, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63806, 2228, 2098, 63, 95, "Input"],
Cell[65907, 2293, 12575, 467, 50, "Output"],
Cell[78485, 2762, 15100, 557, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93622, 3324, 464, 12, 28, "Input"],
Cell[94089, 3338, 8154, 308, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102280, 3651, 417, 11, 63, "Input"],
Cell[102700, 3664, 14847, 559, 50, "Output"],
Cell[117550, 4225, 14847, 559, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132434, 4789, 475, 13, 28, "Input"],
Cell[132912, 4804, 13865, 518, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146814, 5327, 2884, 84, 182, "Input"],
Cell[149701, 5413, 30074, 1117, 50, "Output"],
Cell[179778, 6532, 30074, 1117, 50, "Output"],
Cell[209855, 7651, 27551, 1026, 50, "Output"],
Cell[237409, 8679, 27553, 1026, 50, "Output"]
}, Open  ]],
Cell[264977, 9708, 3289, 101, 97, "Input"],
Cell[268269, 9811, 162, 3, 28, "Input"],
Cell[CellGroupData[{
Cell[268456, 9818, 9729, 281, 313, "Input"],
Cell[278188, 10101, 2885, 75, 48, "Output"],
Cell[281076, 10178, 18071, 646, 331, "Output"]
}, Open  ]],
Cell[299162, 10827, 18744, 635, 265, InheritFromParent],
Cell[CellGroupData[{
Cell[317931, 11466, 2372, 71, 153, "Input"],
Cell[320306, 11539, 2021, 67, 519, "Output"]
}, Open  ]],
Cell[322342, 11609, 1535, 50, 127, "Input"],
Cell[323880, 11661, 956, 29, 87, "Input"],
Cell[324839, 11692, 3272, 103, 115, "Input"],
Cell[328114, 11797, 6682, 203, 162, "Input"]
}
]
*)

(* End of internal cache information *)
